home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / fractal / kaos.lha / autolib / auto_load_param.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-11-18  |  2.0 KB  |  44 lines
  1. /*
  2. ### load all auto parameters into kaos ###
  3.  
  4. NOTE: In addition to original parameters of AUTO86 in fort.7
  5. auto_n1,auto_n2,auto_nfpar are created and read from AUTO86 output
  6. to determine the data ouput format
  7. */
  8. #include "../include/auto_kaos_def.h"
  9. #include <stdio.h>
  10.  
  11. auto_load_param(ffp)
  12. FILE *ffp;
  13. {
  14.     int i,j,icnt;
  15.     /* AUTO86 declerations */
  16.     extern int auto_ndim,auto_ips,auto_irs,auto_ilp;
  17.     extern int auto_ntst,auto_ncol,auto_iad,auto_isp,auto_isw,auto_iplt;
  18.     extern int auto_nbc,auto_nint,auto_nmx,auto_npr,auto_mxbf,auto_iid;
  19.     extern int auto_itmx,auto_itnw,auto_nwtn,auto_jac,auto_nuzr;
  20.     extern int auto_n1,auto_n2,auto_nfpar,auto_icp[];
  21.     extern double auto_rl0,auto_rl1,auto_a0,auto_a1,auto_par[];
  22.     extern double auto_epsu,auto_epss,auto_epsl[],auto_ds,auto_dsmin,auto_dsmax;
  23.     extern double auto_thetau,auto_thetal[];
  24.  
  25.     fscanf(ffp,"%*s %*d %lg %lg %lg %lg",&auto_rl0,&auto_rl1,&auto_a0,&auto_a1);
  26.     icnt=0;
  27.     fscanf(ffp,"%*s %*d %*s");
  28.     for(i=0;i<4;i++) fscanf(ffp,"%lg",&auto_par[icnt++]);
  29.     for(j=0;j< (AUTO_ALL_PARAM_DIM /4)-1;j++){
  30.         fscanf(ffp,"%*s %*d");
  31.         for(i=0;i<4;i++) fscanf(ffp,"%lg",&auto_par[icnt++]);
  32.     }
  33.     fscanf(ffp,"%*s %*d %*s %lg %*s %lg %*s %lg %*s %lg",&auto_epsu,&auto_epss,&auto_epsl[0],&auto_epsl[1]);
  34.     fscanf(ffp,"%*s %*d %*s %lg %*s %lg %*s %lg",&auto_ds,&auto_dsmin,&auto_dsmax);
  35.     fscanf(ffp,"%*s %*d %*s %lg %*s %lg %*s %lg",&auto_thetau,&auto_thetal[0],&auto_thetal[1]);
  36.     fscanf(ffp,"%*s %*d %*s %d %*s %d %*s %d %*s %d",&auto_ndim,&auto_ips,&auto_irs,&auto_ilp);
  37.     fscanf(ffp,"%*s %*d %*s %d %*s %d %*s %d %*s %d %*s %d %*s %d",&auto_ntst,&auto_ncol,&auto_iad,&auto_isp,&auto_isw,&auto_iplt);
  38.     fscanf(ffp,"%*s %*d %*s %d %*s %d %*s %d %*s %d %*s %d %*s %d",&auto_nbc,&auto_nint,&auto_nmx,&auto_npr,&auto_mxbf,&auto_iid);
  39.     fscanf(ffp,"%*s %*d %*s %d %*s %d %*s %d %*s %d %*s %d",&auto_itmx,&auto_itnw,&auto_nwtn,&auto_jac,&auto_nuzr);
  40.     fscanf(ffp,"%*s %*d %*s %d %*s %d %*s %d %*s",&auto_n1,&auto_n2,&auto_nfpar);
  41.     for(i=0;i<auto_nfpar;i++) fscanf(ffp,"%d",&auto_icp[i]);
  42.  
  43. }    
  44.